home *** CD-ROM | disk | FTP | other *** search
- ; -------------------------------------------------------------------------
- ; ------------ EasyCODE(SPX) - Configuration for CLIPPER ------------------
- ; -------------------------------------------------------------------------
-
- [GenOptions]
- InitialIndent=0
- CompressBlanks=no
- GenFileExt=PRG
- MaxIndent=-1
- MaxLineLength=-1
-
- [Settings]
- SourceFileFormat=OEM
-
- [ParseOptions]
- Parser=easy-xbs.dll
- SuppressDoInProcedureCall=no
- SuppressLastReturnInProcedure=yes
-
- [AvailableConstructs]
- Statement=yes
- If=yes
- Switch=yes
- Case=no
- For=yes
- While=yes
- Repeat=yes
- Loop=yes
- Exit=yes
- Procedure=yes
- Call=yes
- Function=yes
- Block=yes
- Frame=yes
- Condition=yes
- And=yes
- Or=yes
- Not=yes
-
- [InsertMenuStrings]
- ;Statement=
- ;If=
- Switch="D&O CASE"
- When=" &CASE"
- ;Case=
- ;Of=
- ;For=
- While="DO &WHILE"
- ;Repeat=
- ;Loop=
- ;Exit=
- Procedure=&PROCEDURE
- ;Call=
- Function=F&UNCTION
- ;Block=
- ;Frame=
- ;Condition=
- ;And=
- ;Or=
- ;Not=
-
- [EncloseMenuStrings]
- ;If=
- ;Then=
- ;Else=
- Switch="DO &CASE"
- When=&CASE
- WhenNone=&OTHERWISE
- ;Case=
- ;Of=
- ;Otherwise=
- ;For=
- While="DO &WHILE"
- ;Repeat=
- ;Loop=
- ;Exit=
- Procedure=&PROCEDURE
- Function=F&UNCTION
- ;Block=
- ;Frame=
- ;Condition=
- ;And=
- ;Or=
- ;Not=
-
- [KeywordStrings]
- If=IF
- Then=THEN
- Else=ELSE
- Switch="DO CASE"
- ;FirstWhen=
- When=CASE
- WhenNone=OTHERWISE
- ;Case=
- ;FirstOf=
- ;Of=
- ;Otherwise=
- For=FOR
- While="DO WHILE"
- Repeat=REPEAT
- Loop=LOOP
- Exit=EXIT
- Procedure=PROCEDURE
- Function=FUNCTION
- ;Block=
- And=AND
- Or=OR
- Not=NOT
-
- [MetaStrings]
- ;SegmentHeader=
- ;Statement=
- ;Condition=
- ;Expression=
- ;Value=
- ;ForStatement=
- ;ProcedureHeader=
- ;ProcedureCall=
- ;FunctionHeader=
- ;BlockComment=
- ;FrameHeader=
- ;FrameFooter=
-
- [GenStrings]
- Statement=''
- EndStatement='\N'
-
- If='\NIF \3+'
- ThenBody='\N\1-'
- ElseBody='\N\2-ELSE\n\2+'
- EmptyElseBody=''
- EndIf='\N\2-ENDIF\n'
-
- ; Warning!
- ; The GenStrings Case, FirstOf, FurtherOf, OfBody,
- ; OtherwiseBody und EmptyOtherwiseBody are not provided,
- ; because the CASE construct is not supported by Clipper.
- ; Please use the SWITCH construct instead!
- ; Due to the GenString EndCase you will find the following hint
- ; in the generated source program:
- EndCase='\s\0:\n\nWarning! CASE construct not allowed.\n\n\r'
-
- Switch='\NDO CASE\3+'
- FirstWhen='\nCASE \5+'
- FurtherWhen='\N\3-CASE \5+'
- WhenBody='\N\5-\3+'
- WhenNoneBody='\N\3-OTHERWISE\3+\n'
- EmptyWhenNoneBody='\N'
- EndSwitch='\N\6-ENDCASE\n'
-
- For='\NFOR \4+'
- ForBody='\N\2-'
- EndFor='\N\2-NEXT\n'
-
- While='\NDO WHILE \9+'
- WhileBody='\N\7-'
- EndWhile='\N\2-ENDDO\n'
-
- Repeat='\NDO WHILE .T.\n\2+'
- Until='\NIF \3+'
- EndRepeat='\NEXIT\n\3-ENDIF\n\2-ENDDO\n'
-
- Loop='\NDO WHILE .T.\n\2+'
- EndLoop='\2-\NENDDO\n'
-
- Exit='\NIF \3+'
- EndExit='\NEXIT\n\3-ENDIF\n'
-
- Procedure='\NPROCEDURE \10+'
- ProcedureBody='\N\8-'
- EndProcedure='\N\2-RETURN\n\n'
-
- Function ='\NFUNCTION \9+'
- FunctionBody='\N\7-'
- EndFunction='\N\2-\n'
-
- Call='\N'
- EndCall='\N'
-
- Block='\NBEGIN SEQUENCE\n /* \5+'
- BlockBody=' */\n\3-'
- EndBlock='\2-\NEND SEQUENCE\n'
-
- Frame='\N'
- FrameBody='\N\2+'
- EndFrameBody='\N\2-'
- EndFrame='\N'
-
- BeginAnd=' (\7+'
- And=');\n\7-.AND. (\7+'
- EndAnd=')\7-'
- BeginOr=' (\7+'
- Or=');\n\7-.OR. (\7+'
- EndOr=')\7-'
- BeginNot='.NOT. (\7+'
- EndNot=')\7-'
- Condition=''
- EndCondition=''
-
- Segment='\N/* \3+'
- SegmentBody=' */\n'
- EndSegment='\3-\N'
-
- TopSegment='/* Generated by \%PNAME% V\%PVER% at \%TIME%\n with \%CFG% */\n\n/* \3+'
- TopSegmentBody=' */\3-\n\n'
- EndTopSegment='\N'
-